﻿
Public Class ZipperForm
    Inherits KryptonForm

    'Load :
    Private Sub ZipperForm_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Control.CheckForIllegalCrossThreadCalls = False
        ZFP.SettingsEnabled = False
    End Sub
    'Minimize :
    Private Sub BSA_Minimize_Click(sender As Object, e As System.EventArgs) Handles BSA_Minimize.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub
    Private Sub ZFP_ZipCreationAbortRequested(sender As Object, e As System.EventArgs) Handles ZFP.ZipCreationAbortRequested
        Me.Close()
    End Sub
    Private Sub ZFP_ZipCreationFinished(sender As Object, e As System.EventArgs) Handles ZFP.ZipCreationFinished
        Me.Close()
    End Sub

End Class
